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Visual Basic 
Username and Password 

Dim user As String = TextBoxl.Text 

Dim pass As String = TextBox2.Text 

If user = "jimale" And pass = "123" Then 

form2.show() 
Else 

MsgBox ("your user name and password are incorrect ") 
End If 

Open Notepad 

Dim read As StreamReader 

Dim rs As DialogResult 

OpenFileDialogl. Title = "open" 

OpenFileDialogl.InitialDirectory = "G:" 

OpenFileDialogl. Filter = "txtfile| *.txt|word files | *docx|pdf file|*pdf" 

rs = OpenFileDialogl. ShowDialog 

If rs = Windows. Forms. DialogResult. OK Then 

End If 

read = New StreamReader (OpenFileDialogl. FileName) 

TextBoxl.Text = read.ReadToEnd () 

read. Close () 


textboxl.copy () 


TextBoxl.Cut () 


TextBoxl.ClearUndo () 


Copy 


Cut 


Undo 


Font 


If CheckBoxl. Checked Then 

Forml.TextBoxl.Font = New Font (Forml. TextBoxl.Text., FontStyle.Bold) 
End If 
If CheckBox2. Checked Then 

Forml.TextBoxl.Font = New Font ( Forml. TextBoxl.Text, FontStyle. Italic) 
End If 
If CheckBox3. Checked Then 

Forml.TextBoxl.Font = New Font ( Forml. TextBoxl.Text, FontStyle. Underline) 
End If 

Save 

Dim wr As StreamWriter 

Dim rs As DialogResult 

rs = SaveFileDialogl. ShowDialog 

If rs = Windows. Forms. DialogResult. OK Then 

wr = New StreamWriter (SaveFileDialogl. FileName, False) 

wr. Write (TextBoxl.Text) 

wr.close() 
End If 
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